66问答网
所有问题
当前搜索:
vba workbook
excel用
VBA
另保存excel中特定的工作表
答:
代码如下:sub 分开存为工作薄()dim sh as worksheetdim wk1 as workbookdim wk2 as workbookdim ipath as stringapplication.screenupdating = false ‘将屏幕更新关闭application.displayalerts = falseipath = thisworkbook.path & "\" '保存路径为当前
工作簿
所在路径set wk1 =
workbooks
.addse...
使用Excel
VBA
,如何将某一个工作表保存到新建的Excel中?
答:
代码如下:\x0d\x0aSub 分开存为工作薄()\x0d\x0a\x0d\x0aDim Sh As Worksheet\x0d\x0aDim Wk1 As
Workbook
\x0d\x0aDim Wk2 As Workbook\x0d\x0aDim iPath As String\x0d\x0a\x0d\x0aApplication.ScreenUpdating = False ‘将屏幕更新关闭\x0d\x0aApplication....
使用Excel
VBA
,如何将某一个工作表保存到新建的Excel中?
答:
代码如下:Sub 分开存为工作薄()Dim Sh As Worksheet Dim Wk1 As Workbook Dim Wk2 As Workbook Dim iPath As String Application.ScreenUpdating = False ‘将屏幕更新关闭 Application.DisplayAlerts = False iPath = ThisWorkbook.Path & "\" '保存路径为当前
工作簿
所在路径 Set Wk1 =
Wor
...
EXCEL工作表,当前
工作簿
中的“
Workbook
_Open”在哪里?
答:
在VBE的Thisworkbook中 Excel版本参考:2010 1、ALT+F11,切换到VBE对话框 2、双击Thi
workbook
标签 3、选择workbook(对象)4、查看效果(
Workbook
_Open)
请教如何利用
VBA
实现将一个工作表复制到另一个
工作簿
中
答:
1、开发工具——VB。2、输入代码:Sub 复制表() Dim MyBook1 As Workbook Set MyBook1 =
Workbooks
.Open("C:\Users\Administrator\Desktop\工作表1.xls") Sheets("移动表").Select Sheets("移动表").Copy Before:=Workbooks( _ "工作表2.xls").Sheets(1)MyBook1.CloseEnd Sub。3、...
如何用
VBA
新建一个新的excel表并将其保存在指定目录下
答:
Sub 新建()
Workbooks
.Add ActiveWorkbook.SaveAs "C:\test.xls", True MsgBox "新建Excel工作薄完成"End Sub
excel
vba
另存文件
答:
通常为美国英语版本,除非从中运行
Workbooks
.Open 的
VBA
项目是旧的国际化 XL5/95 VBA 项目。说明 请使用同时包含大小写字母、数字和符号的强密码。弱密码不混合使用这些元素。强密码:Y6dh!et5。弱密码:House27。请使用您可以记住的强密码,这样就不必将它写下来。示例 本示例新建一个
工作簿
,...
vba
如何实现将一个EXCEL文件中隐藏的SHEET页自动复制
答:
Sub copySheet()Dim wkbk As Workbook Set wkbk =
Workbooks
.open("源文件.xls") '先打开要复制的文件 wkbk.sheets(1).Copy thisworkbook.sheets(1) '再将此文件中第一个工作表复制到当前
工作簿
的第一个工作表前 End Sub 这样是最简单的代码了,但是有些限制:如果工作表的某些单元格中字符...
VBA
读取指定
工作簿
里的一个sheet到我的excelfile怎么做?
答:
用getobject方法可以隐藏打开的
工作簿
对象,实现看上去没有打开的过程\x0d\x0asub test()\x0d\x0a dim wb as
workbook
\x0d\x0a dim sht as worksheet\x0d\x0a set wb=getobject("C:\A.xls")\x0d\x0a set sht=wb.worksheets(1)\x0d\x0a sht.Cells.Copy ThisW...
vba
读取另一个excel的信息
答:
Private Sub Worksheet_Change(ByVal Target As Range)Dim wb As
Workbook
, sh, a, m, rIf Target.Column = 7 ThenSet wb = GetObject(ThisWorkbook.Path & "\B.xlsx")Set sh = wb.Worksheets(1)a = Target.ValueSet m = sh.Range("D:D").Find(What:=a, LookAt:=xlWhole)If m Is...
首页
<上一页
2
3
4
5
6
7
8
9
10
11
下一页
尾页
其他人还搜